home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / isamexpt.zip / ISAMSUCH.DFM / ISAMSUCH.txt
Text File  |  1996-04-05  |  2KB  |  126 lines
  1. object SuchDlg: TSuchDlg
  2.   Left = 156
  3.   Top = 96
  4.   ActiveControl = Edit1
  5.   BorderStyle = bsDialog
  6.   Caption = 'Suchen'
  7.   ClientHeight = 255
  8.   ClientWidth = 317
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = [fsBold]
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   OnShow = FormShow
  17.   TextHeight = 13
  18.   object Bevel1: TBevel
  19.     Left = 12
  20.     Top = 8
  21.     Width = 300
  22.     Height = 193
  23.     Shape = bsFrame
  24.     IsControl = True
  25.   end
  26.   object Label1: TLabel
  27.     Left = 28
  28.     Top = 52
  29.     Width = 66
  30.     Height = 13
  31.     Caption = 'Suchbegriff'
  32.   end
  33.   object Label2: TLabel
  34.     Left = 28
  35.     Top = 24
  36.     Width = 55
  37.     Height = 13
  38.     Caption = 'Schl∩┐╜ssel'
  39.   end
  40.   object OKBtn: TBitBtn
  41.     Left = 64
  42.     Top = 212
  43.     Width = 77
  44.     Height = 27
  45.     TabOrder = 0
  46.     OnClick = OKBtnClick
  47.     Kind = bkOK
  48.     Margin = 2
  49.     Spacing = -1
  50.     IsControl = True
  51.   end
  52.   object CancelBtn: TBitBtn
  53.     Left = 188
  54.     Top = 212
  55.     Width = 77
  56.     Height = 27
  57.     TabOrder = 1
  58.     Kind = bkCancel
  59.     Margin = 2
  60.     Spacing = -1
  61.     IsControl = True
  62.   end
  63.   object Edit1: TEdit
  64.     Left = 108
  65.     Top = 48
  66.     Width = 197
  67.     Height = 21
  68.     CharCase = ecUpperCase
  69.     TabOrder = 2
  70.     OnChange = Edit1Change
  71.   end
  72.   object IsamBrowser1: TIsamBrowser
  73.     Left = 24
  74.     Top = 80
  75.     Width = 281
  76.     Height = 113
  77.     Color = clSilver
  78.     OnBuildRow = IsamBrowser1BuildRow
  79.     OnDblClick = OKBtnClick
  80.     ParentColor = False
  81.     TabOrder = 3
  82.     Table = IsamTable1
  83.     KeySection = 0
  84.     SeparatorChar = '^'
  85.     JustLeftChar = '∩┐╜'
  86.     JustRightChar = '∩┐╜'
  87.     JustCenterChar = '∩┐╜'
  88.     AllowIncSS = False
  89.     IncSSColor = clRed
  90.     IncSSTxtColor = clWhite
  91.   end
  92.   object ComboBox1: TComboBox
  93.     Left = 108
  94.     Top = 20
  95.     Width = 197
  96.     Height = 21
  97.     ItemHeight = 13
  98.     TabOrder = 4
  99.     OnChange = ComboBox1Change
  100.   end
  101.   object IsamTable1: TIsamTable
  102.     BrowserName = 'IsamBrowser1'
  103.     MyUnitName = 'E:\DELPHI\WNTV\T1.PAS'
  104.     IsamKeyProc.Strings = (
  105.       'Function KeyProc(Var Daten; KeyNr:Word): IsamKeyStr;'
  106.       'var s : String;'
  107.       'begin'
  108.       '  s:= '#39#39';'
  109.       '  with (Daten) do begin'
  110.       '    case KeyNr of'
  111.       '      1 : S:= '#39#39';'
  112.       '    End;'
  113.       '  end;'
  114.       '  KeyProc:= s;'
  115.       'end;'
  116.       '')
  117.     IsamRecord.Strings = (
  118.       'Type'
  119.       ' = Record'
  120.       '  Dummy : Longint;'
  121.       'end;')
  122.     Left = 20
  123.     Top = 212
  124.   end
  125. end
  126.